home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / tcp / ChatBox1_153.lha / ChatBox / Rexx / run.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-20  |  487b  |  25 lines
  1. /* reverse */
  2.  
  3. HOST = address()
  4. address value HOST
  5.  
  6. argum = arg(1)
  7. comnd = word(argum, 1)
  8. argm = subword(argum, 2)
  9.  
  10. address command comnd||' >T:cb.tmp '||argm
  11.  
  12. /*CMD '/read T:cb.tmp'*/
  13. LOCAL HDR '[Command]' TXT comnd||' '||argm
  14.  
  15. if open('outfile', 't:cb.tmp') == 0 THEN
  16.     CMD '/echo Could not open T:cb.tmp.'
  17. else
  18.     do while eof('outfile') ~= 1
  19.         newline = readln('outfile')
  20.         if length(newline) > 1 THEN
  21.             LOCAL HDR '['||comnd||']' TXT newline
  22.     end
  23.  
  24. exit 0
  25.